home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #2 / Commodore_Disk_User_Vol.1_2_1988_-.d64 / noluxe menu (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  58 lines
  1. 100 poke53280,0:poke53281,0:poke2,111
  2. 110 print "[147]";
  3. 115 print"             [172][162][162][162][162][162][162][162][162][162][162][162]"
  4. 120 print" [160][160]       [172][190][162][162][146][162][162][162][162][162][162][162][162][162][162][191][162][162][188][146][187]"
  5. 130 print" [160]       [172][172][146][162]               [146][162][187][146][187]"
  6. 140 print" [160]       [188][188][162]               [162][190][146][190]"
  7. 150 print" [160]       [161][191][187][146][162][162][162][162][162][162][162][162][162][162][162][162][146][191][162][162][172][146][191][161]"
  8. 160 print" [160]       [161][187][188][146][162][188][162][162][162][162][162][162][162][162][162][162][162][146][172][151][162][190] [146][161]"
  9. 170 print" [160][160]      [161][146][144] [188][162][155][187]    [152]      [151] [162][162][146][144]  [146][161]"
  10. 190 print"         [161][146][144]                   [146][161]"
  11. 200 print"         [161][146][144] [158][188][161][146][144] [129][172][187][149][160][187][160][172][160][187][156][172][160][187][154][161][162][146][144] [161][146][161]"
  12. 220 print"         [161][146][144] [158][161][187][146][129][160][161][161][146][149][160][161][160][161][146][160][161][156][188][162][190][154][161][146][190][144] [161][146][161]"
  13. 240 print"         [161][146][144] [158][190][188][129][160][191][191][146][149][160][188][146][187][188][162][190][156][161][146][160][161][154][188][162][146][144] [161][146][161]"
  14. 260 print"         [161][146][144]                  [151][161][146][161]"
  15. 270 print"         [161][146][144]   [159][160][153][162][187][160][162][159][160][153][187][187][172][172][162][162][144]   [151][161][146][161]"
  16. 280 print"         [161][146][144]   [159][160][153][161][161][161][146][159][160][153][161][161][172][190][146][144] [153][161][146][144]    [151][161][146][161]"
  17. 300 print"         [161][146][144]   [159][160][153][172][146][190][161][162][146][161][161][161][161][146][144] [153][161][146][144]    [151][161][146][161]"
  18. 320 print"         [161][146][187][144]  [159][160][153][190][144] [153][188][159][160][153][190][190][190][188][144] [153][188][144]    [151][190][146][161]"
  19. 340 print"         [161] [188][146][162][155][187][144]           [151][162][162]  [146][161]"
  20. 350 print"         [161]   [155]     [152]      [151]     [188][146]"
  21. 360 print"         [161]   [155]     [152]      [151]      "
  22. 370 print"         [161]   [155]     [152]      [151]      [188][190][146][187][190][146][187]"
  23. 380 print"         [161]   [155]     [152]      [151]             [162][146]"
  24. 390 print"         [160][187]  [155]     [152]      [151]           [172][162]"
  25. 400 print"           [188][162][155][187]    [152]      [151] [172][162][146][190][188][162]   [172][146][190]"
  26. 450 print"[158]         (c) flossoftware 1987[146]"
  27. 455 forwa=1to80:nextwa
  28. 460 print"            press any key     "
  29. 465 forwa=1to80:nextwa
  30. 470 getwa$:ifwa$=""then450
  31. 500 print "[147]":print:print "        noluxe menu"
  32. 510 print:print "[159]    1. paint"
  33. 520 print:print "[156]    2. character editor"
  34. 530 print:print "    3. auto char generator"
  35. 540 print:print "    4. sprite editor"
  36. 550 print:print "[158]    5. basic listing generator"
  37. 560 print:print:print "     enter option"
  38. 570 get wa$:if wa$=""then goto 570
  39. 571 wa=val(wa$)
  40. 575 if wa=1 then goto 600
  41. 580 if wa=2 then goto 610
  42. 582 if wa=3 then goto 620
  43. 585 if wa=4 then goto 630
  44. 590 if wa=5 then goto 640
  45. 595 goto 570
  46. 600 printchr$(142)"[144]poke157,0:l[207]";chr$(34);"noluxe paint";chr$(34);",8"
  47. 601 goto 1000
  48. 610 printchr$(142)"[144]poke157,0:l[207]";chr$(34);"character editor";chr$(34);",8"
  49. 611 goto 1000
  50. 620 printchr$(142)"[144]poke157,0:l[207]";chr$(34);"auto character";chr$(34);",8"
  51. 621 goto 1000
  52. 630 printchr$(142)"[144]poke157,0:l[207]";chr$(34);"noluxe sprite";chr$(34);",8"
  53. 631 goto 1000
  54. 640 printchr$(142)"[144]poke157,0:l[207]";chr$(34);"noluxe list";chr$(34);",8"
  55. 1000 print"[129]         loading..............[144]"
  56. 1010 poke631,19:poke632,13
  57. 1100 poke633,asc("r"):poke634,asc("u"):poke635,asc("n"):poke636,13:poke198,6:end
  58.